operator (.feq.) Interface

private interface operator (.feq.)

Module Procedures

private elemental function equal(a, b) result(res)

Relational operator to test the equality of floating point numbers.

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: a

Floating point value to be compared.
real(kind=rk), intent(in) :: b

Floating point value to be compared.

Return Value logical

The result is a logical value indicating whether the operands are equal to within numerical precision.

private pure function equal_array(a, b) result(res)

Relational operator to test the equality of two arrays of floating point numbers.

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: a(:)

Floating point array to be compared.
real(kind=rk), intent(in) :: b(:)

Floating point array to be compared.

Return Value logical

The result is a logical value indicating whether the operands are equal to within numerical precision.